﻿Public MustInherit Class Empleado

    Private _superior As Empleado
    Public Property Superior() As Empleado
        Get
            Return _superior
        End Get
        Set(ByVal value As Empleado)
            _superior = value
        End Set
    End Property

    Public MustOverride Sub AprobarVenta(monto As Decimal)
End Class
